home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 1995 May / PC Answers CD-ROM 7 (Future Publishing) (May 1995).iso / vbits / code / pleas / ole / inv_glo.bas < prev    next >
Encoding:
BASIC Source File  |  1994-02-21  |  1.4 KB  |  59 lines
  1. Declare Sub SetWindowPos Lib "User" (ByVal hWnd As Integer, ByVal hWndInsertAfter As Integer, ByVal x As Integer, ByVal Y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal wFlags As Integer)
  2.  
  3. Global Const HWND_TOPMOST = -1
  4. Global Const HWND_NOTOPMOST = -2
  5. Global Const SWP_NOACTIVATE = &H10
  6. Global Const SWP_SHOWWINDOW = &H40
  7.  
  8. ' Option argument values (CreateDynaset, etc)
  9. Global Const DB_DENYWRITE = &H1
  10. Global Const DB_DENYREAD = &H2
  11. Global Const DB_READONLY = &H4
  12. Global Const DB_APPENDONLY = &H8
  13. Global Const DB_INCONSISTENT = &H10
  14. Global Const DB_CONSISTENT = &H20
  15. Global Const DB_SQLPASSTHROUGH = &H40
  16.  
  17. ' Excel constants
  18. Global Const XLDOWN = -4121
  19.  
  20. Type tItem
  21.     Name As String
  22.     Master As String
  23.     Text As String
  24.     Data1 As String
  25.     Data2 As String
  26. End Type
  27. Global arItems() As tItem
  28. Global iItems As Integer
  29. Global arMasters() As tItem
  30. Global iMasters As Integer
  31.  
  32. Type tStock
  33.     Name As String
  34.     Description As String
  35.     UOM As String
  36.     Cost As Long
  37.     Stock As Integer
  38.     Qty As Integer
  39. End Type
  40. Global arStock() As tStock
  41. Global iStocks As Integer
  42.  
  43. Global TB As String * 1
  44.  
  45. Global Const GRAY = &HC0C0C0
  46. Global Const WHITE = &HFFFFFF
  47. Global Const BLACK = &H0
  48.  
  49. Global sHold As String
  50. Global iStep As Integer
  51. Global iSteps As Integer
  52.  
  53. Global iLoadM As Integer
  54. Global iLoadI As Integer
  55. Global iLoadD As Integer
  56.  
  57. Global snarf%
  58.  
  59.